home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / xlispst.cpt / XLisp-Stat ƒ / Disk 1 / init.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1990-03-03  |  1.5 KB  |  53 lines
  1. ; initialization file for XLISP-STAT 2.0
  2.  
  3. ; get some more space
  4. #+small-machine(expand 7)
  5. #+(and macintosh (not small-machine))(expand 15)
  6. #-macintosh(expand 20)
  7.  
  8. ; load in lisp files
  9. (load "common")
  10.  
  11. ; initialize to disable breaks and trace back
  12. (setq *breakenable* nil)
  13. (setq *tracenable* nil)
  14. #+small-machine (setq *keep-documentation-strings* nil)
  15.  
  16. #+macintosh (defvar *help-file-name* "xlisp.help")
  17. #-macintosh (defvar *help-file-name* 
  18.                 (format nil "~axlisp.help" *default-path*))
  19. (defvar *help-stream* 
  20.   (let ((file (open *help-file-name*)))
  21.     (if file file (open (concatenate 'string *help-file-name* ".small")))))
  22. (defvar *line-length* 78 "Line length used in printing help messages")
  23. (defvar *keep-documentation-strings* t)
  24. (defvar *help-loaded* nil)
  25. (defconstant *cursors* 
  26.   '(arrow watch cross brush hand finger hour-glass trash-bag trash-can))
  27. (defconstant *colors* 
  28.   '(white black red green blue cyan magenta yellow))
  29. (defconstant *plot-symbols* 
  30.   '(dot dot1 dot2 dot3 dot4 disk diamond cross square wedge1 wedge2 x))
  31.  
  32. ; load xlispstat objects and related functions
  33. (require "help")
  34. (require "objects")
  35.  
  36. ; load macintosh menus and editing functions
  37. #+macintosh(progn
  38.          (setq *listener* (send listener-proto :new))
  39.          (require "menus")
  40.          (set-menu-bar *standard-menu-bar*))
  41. #-macintosh(require "menubar")
  42.  
  43. ; load statistics and graphics functions
  44. (require "statistics")
  45. (require "dialogs")
  46. (require "graphics")
  47. (require "regression")
  48. (require "autoload.lsp")
  49.  
  50. ; load user initialization file
  51. (load "statinit")
  52.  
  53.